<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.7</name>
<id>-1</id>
<cardCount>10</cardCount>
<cardID>3853</cardID>
<listID>2818</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openstackset userlevel to 5hide menubarget short name of this stackput it into card field "stkname"wait 3 secondsgo to card "ChptLstCrd"end openstackon NoTpcCrdglobal Chapt,ChptNameif the number of chars in ChptName > 35then put char 1 to 35 of ChptName & "..." into ChptNameanswer "A card is incorrectly named! or is missing!" with "OK"answer ChptName && "=" && Chapt with "OK"answer "Should Summarizer insert a card " && quote & Chapt & quote ¬&& "?" with "Cancel" or "OK"if it is empty or it is "Cancel" then exit NoTpcCrdset lockscreen to trueput MakeCard("TpcLstTmplt") into dummyset the name of this card to Chaptgo to card "ChptLstCrd"flash 2put "Try going to card" && quote & Chapt & quote && "now."wait 2 secondshide msgend NoTpcCrdon NoNtCrdglobal UserChoice,NtHeaderput short name of this card into WasHereif the number of chars in NtHeader > 35then put char 1 to 35 of NtHeader & "..." into NtHeaderanswer "A card is incorrectly named! or is missing!" with "OK"answer NtHeader && "=" && UserChoice with "OK"type "f" with commandKeytype NtHeaderanswer "Should Summarizer insert a card " && quote & UserChoice & ¬quote && "?" with "Cancel" or "OK"if it is empty or it is "Cancel" then exit NoNtCrdset lockscreen to trueput MakeCard("NtTmplt") into dummyset the name of this card to UserChoiceput Ntheader into field "HeaderFld"flash 2go to card WasHereset lockscreen to falseput "Try going to card" && quote & UserChoice & quote && "now."wait 2 secondshide msgend NoNtCrdon domenuglobal ptypeput the param of 1 into ptypeif ptype is "new background" thenanswer "You cannot add backgrounds to this stack!" with "OK"exit domenuend ifif ptype is "copy card" or ptype is "paste card" ¬or ptype is "cut card" thenanswer "You are trying to cut/copy/paste a card!..." with "OK"answer "Only Summarizer may cut/copy/paste cards!" with "OK"exit domenuend ifif ptype contains "paste" thenanswer "About to" && ptype && "from clipboard" with "Cancel" or "OK"if it is "Cancel" then exit domenuend ifif ptype is "new card" or ptype is "delete card" thenget the name of the targetif it contains "button" or it contains "ChptLstFld" ¬or it contains "TpcLstFld" thenpass domenuelseanswer "You are trying to make/delete a card!..." with "OK"answer "Only Summarizer may make/delete cards!" with "OK"exit domenuend ifend ifif ptype is "cut " thenget the name of the targetif it contains "button" thenbeep 1answer "There must be graphics to cut!" with "OK"exit domenuelseanswer "There is nothing selected to cut!"end ifend ifpass domenuend domenuon MakePageput empty into NwCrdput field "HeaderFld" into StrtCrdHeaderput short name of next card into RCardput short name of this card into StrtCrdset lockscreen to "true"if RCard is "@" thendomenu "new card"set name of this card to "@"if StrtCrd is "@" thenput StrtCrdHeader into field "HeaderFld"elseput "…" && StrtCrdHeader && "Cont." into field "HeaderFld"end ifput "true" into NwCrdelseput "false" into NwCrdend ifdomenu "new button"set name of button "new button" to "NxtPg"set showname of button "NxtPg" to falseset rect of button "NxtPg" to 460, 0, 480, 17set icon of button "NxtPg" to "sml Next Arrow"set loc of button "NxtPg" to 460,8set style of button "NxtPg" to opaqueset script of button "NxtPg" to "On mouseup" & return & ¬"go to next card" & return & ¬"if the number of card fields is 1 then" & return & ¬"get
